home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / demos / datachrome / steuerung < prev    next >
AmigaDOS Script File  |  1996-07-22  |  2KB  |  89 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "install"
  14.     set vinstall 1
  15. endif
  16. set binfo        1
  17. set bcopy        1
  18. set binstall     1
  19.  
  20.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  21.     set nummer 0
  22.     if $binfo EQ 1
  23.          echo >>t:tmpsteuerung " Info" NOLINE
  24.          set nummer `eval $nummer + 1`
  25.          set ninfo $nummer
  26.     endif
  27.     if $bcopy EQ 1
  28.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  29.          set nummer `eval $nummer + 1`
  30.          set ncopy $nummer
  31.     endif
  32.     if $binstall EQ 1
  33.          echo >>t:tmpsteuerung " Installieren" NOLINE
  34.          set nummer `eval $nummer + 1`
  35.          set ninstall $nummer
  36.     endif
  37.     if "[param]" EQ ""
  38.         echo >>t:tmpsteuerung " Ende" NOLINE
  39.         execute >nil: t:tmpsteuerung
  40.         delete >nil: t:tmpsteuerung
  41.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  42.         if $reqerg[$$] EQ 0
  43.             skip Ende
  44.         endif
  45.     endif
  46.     if $reqerg[$$] EQ $ninfo
  47.         set vinfo 1
  48.     endif
  49.     if $reqerg[$$] EQ $ncopy
  50.         set vcopy 1
  51.     endif
  52.     if $reqerg[$$] EQ $ninstall
  53.         set vinstall 1
  54.     endif
  55. endif
  56.  
  57. if $vinfo EQ 1
  58. ;>>>>>>>> Hier Infotext eintragen
  59.     :c/Metatool :Demos/DataChrome/Docs/Readme FT=TEXT
  60. endif
  61. if $vcopy EQ 1
  62.     execute :c/Verzeichniskopieren ":Demos/DataChrome/" "DataChrome" 308224
  63. endif
  64. if $vinstall EQ 1
  65. ;>>>>>>>> Hier Install-Skript eintragen
  66.     assign datachrome: :demos/datachrome
  67.     cd :demos/datachrome
  68.     assign l: :l add
  69.     :c/WBstarter >nil: :Demos/DataChrome/DataChrome.Install
  70.     assign l: :l remove
  71.     assign datachrome: remove
  72.     skip Ende
  73. endif
  74.  
  75. unset binfo
  76. unset vinfo
  77. unset ninfo
  78. unset binstall
  79. unset vinstall
  80. unset ninstall
  81. unset bcopy
  82. unset vcopy
  83. unset ncopy
  84. if "[param]" EQ ""
  85.     execute ":Demos/DataChrome/Steuerung"
  86. endif
  87. LAB Ende
  88. unsetenv reqerg[$$]
  89.